home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / perl5.002 / makedir < prev    next >
Encoding:
Text File  |  1996-04-06  |  456 b   |  28 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}; Exit {Status}
  2. #!perl
  3.  
  4. unless ($#ARGV >= 0) {
  5.     print STDERR "makedir pathname filenameflag\n";
  6.     exit 1;
  7. }
  8.  
  9. # strip last component if it is to be a filename
  10. if ($ARGV[1]) {
  11.     $ARGV[0] =~ s/:[^:]*$//;
  12. }
  13.  
  14. &makedir($ARGV[0]);
  15.  
  16. sub makedir {
  17.     local($name) = @_;
  18.     
  19.     if (-d $name) {
  20.         return;
  21.     }
  22.     if ($name =~ /:[^:]+:?$/) {
  23.         local($super) = $`;
  24.         makedir($super);
  25.     }
  26.     mkdir($name, 0666) || die "Can't create directory \"$name\"";
  27. }
  28.